home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util3 / loclpl20.lha / WFMH_LocalePL_v2.0 / Skasuj_LocalePL < prev    next >
Text File  |  1996-01-29  |  12KB  |  446 lines
  1. ;
  2. ;               LocalePL © 1994-1996 Marcin Orlowski
  3. ;
  4. ;           ---------------------------------------------------------
  5. ;
  6. ;              ###    ###    #########  ###    ###    ###    ###
  7. ;              ###    ###    ###        ####  ####    ###    ###
  8. ;              ###    ###    ###        ### ## ###    ###    ###
  9. ;              ###    ###    ########   ### ## ###    ##########
  10. ;              ### ## ###    ########   ###    ###    ##########
  11. ;              ### ## ###    ###        ###    ###    ###    ###
  12. ;              ####  #### ## ###     ## ###    ### ## ###    ### ##
  13. ;              ###    ### ## ###     ## ###    ### ## ###    ### ##
  14. ;
  15. ;           ---------------------------------------------------------
  16. ;
  17. ;                       Mental Pictures Developed Here
  18. ;
  19. ;                              Marcin Orlowski
  20. ;                              ul. Radomska 38
  21. ;                              71-002 Szczecin
  22. ;
  23. ;               SilverDream!'s BBS:  +48 (0)91-540431  (24h non-stop)
  24. ;                                      GlobalNet: 52:4800/6
  25. ;                                      FidoNet  :  2:481/22.2
  26. ;
  27. ;              Internet:                carlos@felix.univ.szczecin.pl
  28. ;              WWW Page:   dedal.man.szczecin.pl/~carlos/carlos.html
  29. ;
  30. ;
  31. ;--------------------------------------------------------------------
  32. ;
  33. ;                        W.F.M.H. LocalePL Deratyzer
  34. ;
  35. ;                 MR SOFT /  WORLD FEDERATION OF MAD HACKERS
  36. ;
  37. ;--------------------------------------------------------------------
  38. ;
  39. ;     $VER: W.F.M.H. LocalePL (20.12.95) - Skrypt deratyzacyjny
  40. ;
  41. (set OS_Version (/ (getversion "LIBS:locale.library") 65536))
  42. (if (< OS_Version 37)
  43.     (abort  "\n\n\nAby wykorzystac pakiet LocalePL\n"
  44.         "niezbedny jest conajmniej Kickstart 2.1!\n\n"
  45.         "W zwiazku z tym nie ma czego usuwac!"
  46.     )
  47. )
  48.  
  49. (complete 0)
  50. (welcome
  51.     "\n"
  52.     " ###    ###    #########  ###    ###    ###    ###\n"
  53.     " ###    ###    ###        ####  ####    ###    ###\n"
  54.     " ###    ###    ###        ### ## ###    ###    ###\n"
  55.     " ###    ###    ########   ### ## ###    ##########\n"
  56.     " ### ## ###    ########   ###    ###    ##########\n"
  57.     " ### ## ###    ###        ###    ###    ###    ###\n"
  58.     " ####  #### ## ###     ## ###    ### ## ###    ###\n"
  59.     " ###    ### ## ###     ## ###    ### ## ###    ###\n"
  60.     "\n"
  61.     "      ------------------------------------------\n"
  62.     "                      Locale PL\n"
  63.     "      ------------------------------------------"
  64. )
  65.  
  66. (message "\n"
  67.          "UWAGA!\n"
  68.          "--------\n"
  69.          "Wykonanie niniejszego skryptu spowoduje\n"
  70.          "przywrócenie preferencji jëzykowych\n"
  71.          "do poprzedniego stanu (przed instalacjâ)\n"
  72.          "Jednoczeônie, w zaleûnosci od Twego wyboru,\n"
  73.          "wszelkie \"polskie\" pliki, oraz czcionki\n"
  74.          "wchodzâce w skîad pakietu zostanâ fizycznie\n"
  75.          "usuniëte z dysku.\n\n"
  76.          "Konwertery tekstu, pozostaîe programy\n"
  77.      "oraz dokumentacjë musisz usunaê rëcznie."
  78. )
  79.  
  80. (set Wynik (askoptions
  81.            (prompt  "Co chcesz usunac:")
  82.         (help 
  83.              "    Skasowanie polskich czcionek TopazPL powoduje "
  84.              "automatyczne usuniëcie programu FontPLPatch, który "
  85.          "bez tychûe czcionek jest caîkowicie bezuûyteczny. "
  86.              "Jesli z jakichkolwiek przyczyn chcesz zostawic owe "
  87.          "czcionki ale program skasowaê, to usun \"ptaszka\" "
  88.          "obok nazw czcionek które chcesz zostawiê.\n\n"
  89.          "    Opcja \"Skasuj wszystkie polskie pliki\" powoduje "
  90.          "usuniecie wszystkich plików, które sa uûywane zarówno "
  91.          "przez system Amigi jak i inne programy do komunikacji "
  92.          "z uûytkownikiem w jezyku polskim. Usuniete zostanâ "
  93.          "takûe charakterystyczne definicje (symbol waluty, "
  94.          "nazwy dni tygodnia...), a takûe wszelkie polskie "
  95.          "teksty pomocy\n\n"
  96.                          @askoptions-help)
  97.            (choices " Przywroc preferencje"
  98.          " Skasuj czcionki TopazPL"
  99.          " Skasuj czcionke TopazPropPL"
  100.          " Skasuj HoustonPL, UnityPL, ApplePL..."
  101.          " Skasuj polskie czcionki dla MagicWB"
  102.          " Skasuj wszystkie \"polskie\" pliki"
  103.          " Skasuj polskie mapy klawiatury"
  104.          " Skasuj program AssignWedge"
  105.          " Skasuj program FontPLPatch"
  106. ;         " Skasuj bibliotekë konwersjaPL.library"
  107.         )
  108.  
  109.        )
  110. )
  111.  
  112. (set PrzywrocStare 0)
  113. (if (bitand Wynik 1)
  114.  (
  115.     (working "Probuje przywrócic poprzednie\n"
  116.          "preferencje systemowe...")
  117.  
  118.     (if  (= (exists "ENVARC:Sys/STARE_PREFERENCJE" (noreq)) 2)
  119.          (
  120.          (working "Przywracam poprzednie preferencje...")
  121.  
  122.          (copyfiles
  123.         (source "ENVARC:Sys/STARE_PREFERENCJE")
  124.         (dest "ENVARC:Sys")
  125.         (all))
  126.  
  127.          (delete "ENVARC:Sys/STARE_PREFERENCJE")
  128.      (set PrzywrocStare 1)
  129.      )
  130.      (message "\n\n\n"
  131.            "Przykro mi, ale w ferworze walki\n"
  132.            "musiales skasowac zachowane podczas\n"
  133.            "instalacji poprzednie preferencje!\n\n"
  134.            "Bedziesz musial odtworzyc je recznie...")
  135.     )
  136.  )
  137. )
  138. (complete 10)
  139.  
  140.  
  141.  
  142. (if (bitand Wynik 2)
  143.  (
  144.     (working "\n\n\nProbuje skasowac czcionke: TopazPL")
  145.  
  146.     (if (= (exists "FONTS:TopazPL") 2)
  147.      (
  148.           (delete "FONTS:TopazPL")
  149.           (delete "FONTS:TopazPL.font")
  150.          )
  151.      (message "\n\n\n\n"
  152.           "Czcionka TopazPL nie znaleziona!")
  153.  
  154.     (working "\n\n\nProbuje skasowac program: FontPLPatch")
  155.     (if (= (exists "SYS:FontPLPatch") 2)
  156.      (
  157.           (delete "SYS:FontPLPatch")
  158.           (delete "SYS:FontPLPatch.info")
  159.          )
  160.      (message "\n\n\n\n"
  161.           "Program FontPLPatch nie znaleziony!")
  162.     )
  163.        )
  164.  )
  165. )
  166. (complete 20)
  167.  
  168.  
  169. (if (bitand Wynik 4)
  170.  (
  171.     (working "\n\n\nProbuje skasowac czcionke: TopazPropPL")
  172.  
  173.     (if (= (exists "FONTS:TopazPropPL" (noreq)) 2)
  174.      (
  175.           (delete "FONTS:TopazPropPL")
  176.           (delete "FONTS:TopazPropPL.font")
  177.          )
  178.      (message "\n\n\n\n"
  179.           "Czcionka TopazPropPL nie znaleziona!")
  180.     )
  181.  )
  182. )
  183. (complete 30)
  184.  
  185.  
  186.  
  187. (if (bitand Wynik 8)
  188.  (
  189.     (working "\n\n\nProbuje skasowac dodatkowe czcionki:\n"
  190.          "HoustonPL, UnityPL,\nThinpazPL, ApplePL\n"
  191.          "DGSansSerifPL, EpsiSansBoldPL\n"
  192.          "Pica60PL"
  193.    )
  194.  
  195.     (if (= (exists "FONTS:HoustonPL" (noreq)) 2)
  196.      (
  197.           (delete "FONTS:HoustonL")
  198.           (delete "FONTS:HoustonPL.font")
  199.          )
  200.      (message "\n\n\n\n"
  201.           "Czcionka HoustonPL nie znaleziona!")
  202.     )
  203.  
  204.     (if (= (exists "FONTS:UnityPL" (noreq)) 2)
  205.      (
  206.           (delete "FONTS:UnityPL")
  207.           (delete "FONTS:UnityPL.font")
  208.          )
  209.      (message "\n\n\n\n"
  210.           "Czcionka UnityPL nie znaleziona!")
  211.     )
  212.  
  213.     (if (= (exists "FONTS:ApplePL" (noreq)) 2)
  214.      (
  215.           (delete "FONTS:ApplePL")
  216.           (delete "FONTS:ApplePL.font")
  217.          )
  218.      (message "\n\n\n\n"
  219.           "Czcionka ApplePL nie znaleziona!")
  220.     )
  221.  
  222.  
  223.     (if (= (exists "FONTS:ThinpazPL" (noreq)) 2)
  224.      (
  225.           (delete "FONTS:ThinpazPL")
  226.           (delete "FONTS:ThinpazPL.font")
  227.          )
  228.      (message "\n\n\n\n"
  229.           "Czcionka ThinpazPL nie znaleziona!")
  230.     )
  231.  
  232.     (if (= (exists "FONTS:LucidPL" (noreq)) 2)
  233.      (
  234.           (delete "FONTS:LucidPL")
  235.           (delete "FONTS:LucidPL.font")
  236.          )
  237.      (message "\n\n\n\n"
  238.           "Czcionka LucidPL nie znaleziona!")
  239.     )
  240.  
  241.     (if (= (exists "FONTS:DGSansSerif" (noreq)) 2)
  242.      (
  243.           (delete "FONTS:DGSansSerif")
  244.           (delete "FONTS:DGSansSerif.font")
  245.     )
  246.      (message "\n\n\n\n"
  247.           "Czcionka LucidPL nie znaleziona!"
  248.     )
  249.     )
  250.  
  251.     (if (= (exists "FONTS:EpsiSansBoldPL" (noreq)) 2)
  252.      (
  253.           (delete "FONTS:EpsiSansBoldPL")
  254.           (delete "FONTS:EpsiSansBoldPL.font")
  255.     )
  256.      (message "\n\n\n\n"
  257.           "Czcionka EpsiSansBoldPL nie znaleziona!"
  258.     )
  259.     )
  260.  
  261.     (if (= (exists "FONTS:Pica60PL" (noreq)) 2)
  262.      (
  263.           (delete "FONTS:Pica60PL")
  264.           (delete "FONTS:Pica60PL.font")
  265.     )
  266.      (message "\n\n\n\n"
  267.           "Czcionka Pica60PL nie znaleziona!"
  268.     )
  269.     )
  270.  
  271.  
  272.  )
  273. )
  274. (complete 40)
  275.  
  276.  
  277.  
  278. (if (bitand Wynik 16)
  279.  (
  280.     (working "\n\n\nProbuje skasowac czcionki dla MagicWB:\n"
  281.          "XCourierPL, XenPL oraz XHelveticaPL")
  282.  
  283.     (if (= (exists "FONTS:XCourierPL" (noreq)) 2)
  284.      (
  285.           (delete "FONTS:XCourierPL")
  286.           (delete "FONTS:XCourierPL.font")
  287.          )
  288.      (message "\n\n\n\n"
  289.           "Czcionka XCourierPL nie znaleziona!")
  290.     )
  291.  
  292.     (if (= (exists "FONTS:XenPL" (noreq)) 2)
  293.      (
  294.           (delete "FONTS:XenPL")
  295.           (delete "FONTS:XenPL.font")
  296.          )
  297.      (message "\n\n\n\n"
  298.           "Czcionka XenPL nie znaleziona!")
  299.     )
  300.  
  301.     (if (= (exists "FONTS:XHelveticaPL" (noreq)) 2)
  302.      (
  303.           (delete "FONTS:XHelveticaPL")
  304.           (delete "FONTS:XHelveticaPL.font")
  305.          )
  306.      (message "\n\n\n\n"
  307.           "Czcionka XHelveticaPL nie znaleziona!")
  308.     )
  309.  
  310.  )
  311. )
  312. (complete 50)
  313.  
  314.  
  315. (if (bitand Wynik 32)
  316.  (
  317.     (working "\n\n\nProbuje skasowac\n"
  318.             "wszystkie polskie pliki\n")
  319.  
  320.     (if (= (exists "LOCALE:Catalogs/Polski" (noreq)) 2)
  321.          (delete "LOCALE:Catalogs/Polski")
  322.      (message "\n\n\n\n"
  323.           "Katalog\n"
  324.          "\"LOCALE:Catalogs/Polski\"\n"
  325.          "nie znaleziony")
  326.     )
  327.  
  328.     (if (= (exists "LOCALE:Countries/polska.country" (noreq)) 1)
  329.          (delete "LOCALE:Countries/polska.country")
  330.      (message "\n\n\n\n"
  331.           "Plik\n"
  332.          "\"LOCALE:Countries/polska.country\"\n"
  333.          "nie znaleziony")
  334.     )
  335.  
  336.     (if (= (exists "LOCALE:Help/Polski" (noreq)) 2)
  337.          (delete "LOCALE:Help/Polski")
  338.      (message "\n\n\n\n"
  339.           "Katalog\n"
  340.          "\"LOCALE:Help/Polski\"\n"
  341.          "nie znaleziony")
  342.     )
  343.  
  344.     (if (= (exists "LOCALE:Languages/polski.language" (noreq)) 1)
  345.          (delete "LOCALE:Languages/polski.language")
  346.      (message "\n\n\n\n"
  347.           "Plik\n"
  348.          "\"LOCALE:Languages/polski.language\"\n"
  349.          "nie znaleziony")
  350.     )
  351.  )
  352. )
  353. (complete 60)
  354.  
  355.  
  356. (if (bitand Wynik 64)
  357.  (
  358.     (working "\n\n\nProbuje skasowac\n"
  359.             "polskie mapy klawiatury")
  360.  
  361.     (if (= (exists "DEVS:Keymaps/AmigaPL-D" (noreq)) 1)
  362.          (delete "DEVS:Keymaps/AmigaPL-D")
  363.     )
  364.  
  365.     (if (= (exists "DEVS:Keymaps/AmigaPL-USA" (noreq)) 1)
  366.          (delete "DEVS:Keymaps/AmigaPL-USA")
  367.     )
  368.  )
  369. )
  370. (complete 70)
  371.  
  372.  
  373. (if (bitand Wynik 128)
  374.  (
  375.     (working "\n\n\nProbuje skasowac program: AssignWedge")
  376.  
  377.     (if (= (exists "SYS:WBStartup/AssignWedge" (noreq)) 1)
  378.      (
  379.           (delete "SYS:WBStartup/AssignWedge")
  380.           (delete "SYS:WBStartup/AssignWedge.info")
  381.          )
  382.     )
  383.  )
  384. )
  385. (complete 80)
  386.  
  387.  
  388. (if (bitand Wynik 256)
  389.  (
  390.        (if (= (bitand Wynik 2) 0)
  391.     (working "\n\n\nProbuje skasowac program: FontPLPatch")
  392.  
  393.     (if (= (exists "SYS:WBStartup/FontPLPatch" (noreq)) 1)
  394.      (
  395.           (delete "SYS:WBStartup//FontPLPatch")
  396.           (delete "SYS:WBStartup//FontPLPatch.info")
  397.          )
  398.     )
  399.        )
  400.  )
  401. )
  402. (complete 90)
  403.  
  404.  
  405. (if (= PrzywrocStare 1)
  406.         (if
  407.       (askbool
  408.                 (prompt "\n\n\nCzy chcesz abym przelaczyl\n"
  409.             "system zgodnie z odtworzonymi\n"
  410.             "preferencjami, czy tez chcesz to\n"
  411.             "zrobic recznie?")
  412.                 (help "\n"
  413.                       "      Wprawdzie preferencje zostaly odtworzone\n"
  414.                       " poprawnie, ale Amiga nadal pracuje zgodnie\n"
  415.                       " z poprzednim ustawieniem. Antidotum na ta\n"
  416.                       " sytacje moze byc:\n\n"
  417.                       "  1. wywolanie odpowiednich programów\n"
  418.                       "     systemowych, co tez zostanie zrobione\n"
  419.                       "     jesli skorzystasz z niniejszej opcji\n"
  420.                       "  2. reset komputera, czyli Ctrl+Amiga+Amiga\n"
  421.                       "     (uwaga na pozostale programy i dane!)\n"
  422.                           @askbool-help)
  423.                 (choices "Zrob to" "Wole sama")
  424.       )
  425.           (
  426.            (run "SYS:Prefs/LOCALE ENVARC:Sys/locale.prefs USE")
  427.            (run "SYS:Prefs/INPUT ENVARC:Sys/input.prefs USE")
  428.            (run "SYS:Prefs/FONT ENVARC:Sys/font.prefs USE")
  429.           )
  430.         )
  431. )
  432. (complete 100)
  433.  
  434.  
  435.  
  436. (message "\nGotowe!\n"
  437.      "---------\n"
  438.      "Teraz, teoretycznie, twoja Amiga\n"
  439.      "winna pracowac zgodnie z ustawieniami\n"
  440.      "z czasow przed instalacja pakietu\n\n\n"
  441.      "W.F.M.H. LocalePL\n"
  442.          "\n\nW.F.M.H. LocalePL © 1994-1996 Marcin Orlowski\n"
  443.      "MR SOFT / World Federation of Mad Hackers"
  444. )
  445. (exit (QUIET))
  446.